sub msxvideo9990cleanregisters()
  dim tzrg0l as uinteger at $C000
  for tzrg0l=0 to 23
    out $64,tzrg0l   	'- register write mode
    out $63,0         '- register value
    next
  end sub
